home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / EGAVGA.SWG / 0030_SETMODE6.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  1KB  |  26 lines
  1. {
  2. Great Thanks Chris. Now For another question, This Function would return
  3. 0..63 For the 256 color palette right? Can I also use this For the 16
  4. color VGA & EGA palettes With the exception of it returning a value between
  5. 0 and 3? and if you wouldn't mind I could also use another Function that
  6. would tell me what video mode I am in. I am examining a Program that can use
  7. video modes of CGA4 ($04), CGA2 ($06), EGA ($10), VGA ($12) and MCGA ($13)
  8. and it Uses this Procedure to set the video mode:
  9. }
  10.  
  11. Procedure VideoMode (n: Integer);
  12. begin
  13.         Reg.ah := $00;
  14.         Reg.al := n;
  15.         intr ($10, Reg);
  16. end;
  17.  
  18. {
  19. With the N being the hex numbers from the above video modes.
  20.  
  21. Now i know next to nothing about interrupts, and your code looks very similar
  22. to what was done to set each color. Is the way to find out the value of al to
  23. call the interrupt in the same manner as above without specifying a value For
  24. al? Would it return the current al value...... or am I in left field on this
  25. one :)
  26. }